function [estpr,flagc]=check_min(estpr,indmat) 
% ======================================================
% function [estpr,flagc]=check_min(estpr,indmat)
% CHECK_MIN 
% CHECK THE MINIMIZATION OF THE COEFFICIENTS PASSED FROM CSMINWEL 
% TRANSFORM THEN INTO MODEL COEFFICIENTS 
% 
% If FLAGC  = 0 will indicate code not to continue  
% =======================================================
estpr=min2mod(estpr,indmat); 
temp=isinf( abs(estpr) ); 
flagc = 1; 
if any( temp~=0)~=0
    disp(['Paramaters ',num2str(temp'),' Infinite']); 
    flagc= 0;
    return 
end
temp=isnan( estpr ); 
if any( temp~= 0) ~=0; 
    disp(['Parameters ',num2str( temp' ),' is NAN' ] );  
    flagc = 0;
    return
end 